home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / Feelin021015 / Examples / Player.e < prev    next >
Encoding:
Text File  |  2002-10-28  |  2.0 KB  |  72 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF c,w
  7.  
  8.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  9.       c := ClientObject,
  10.          Child, w := WindowObject, FA_Window_Title,'Feelin : Player',
  11.             Child, HGroup, NoFrame, FA_FixedHeight,TRUE,
  12.                Child, VGroup, NoFrame, FA_Weight,50,
  13.                   Child, SimpleButton('Vol -'),
  14.                   Child, SimpleButton('Bal l'),
  15.                   Child, SimpleButton('Eq'),
  16.  
  17.                   Child, HGroup, NoFrame,
  18.                      Child, SimpleButton('S'),
  19.                      Child, SimpleButton('N'),
  20.                   End,
  21.                End,
  22.  
  23.                Child, VGroup, NoFrame, FA_Weight,200,
  24.                   Child, PropObject, FA_Prop_Entries,66,FA_Prop_First,32,FA_Prop_Visible,2, FA_Horizontal,TRUE, PropFrame, PropBack, End,
  25.                   Child, PropObject, FA_Prop_Entries,66,FA_Prop_First,32,FA_Prop_Visible,2, FA_Horizontal,TRUE, PropFrame, PropBack, End,
  26.  
  27.                   Child, HGroup, NoFrame,
  28.                      Child, SimpleButton('|<'),
  29.                      Child, SimpleButton('<<'),
  30.                      Child, SimpleButton('>'),
  31.                      Child, SimpleButton('||'),
  32.                      Child, SimpleButton('>>'),
  33.                      Child, SimpleButton('>|'),
  34.                      Child, SimpleButton('Stop'),
  35.                      Child, SimpleButton('^'),
  36.                   End,
  37.  
  38.                   Child, HGroup, NoFrame,
  39.                      Child, TextObject, DontChain, FA_Text,'`c`<1>No Module loaded', FA_Text_VCenter,TRUE, FA_Frame,036, FA_Back,FI_Dark, End,
  40.                      Child, TextObject, DontChain, FA_Text,'`c`<1>00:00',            FA_Text_VCenter,TRUE, FA_Frame,036, FA_Back,FI_Dark, End,
  41.                   End,
  42.                End,
  43.  
  44.                Child, VGroup, NoFrame, FA_Weight,50,
  45.                   Child, SimpleButton('Vol +'),
  46.                   Child, SimpleButton('Bal r'),
  47.                   Child, SimpleButton('Disk'),
  48.  
  49.                   Child, HGroup, NoFrame,
  50.                      Child, SimpleButton('I'),
  51.                      Child, SimpleButton('L'),
  52.                   End,
  53.                End,
  54.             End,
  55.          End,
  56.       End
  57.  
  58.       IF c
  59.          F_DoA(w,FM_Notify,[FA_Window_CloseRequest,TRUE,FV_Notify_Client,2,FM_Client_ReturnID,FV_Client_Quit])
  60.          F_Set(w,FA_Window_Open,TRUE)
  61.  
  62.          WHILE F_DoA(c,FM_Client_WaitEvent,NIL) <> FV_Client_Quit DO NOP
  63.  
  64.          F_DisposeObj(c)
  65.       ENDIF
  66.  
  67.       CloseLibrary(feelinbase)
  68.    ELSE
  69.       WriteF('Unable to open feelin.library\n')
  70.    ENDIF
  71. ENDPROC
  72.